home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b4.d64
/
solution4.7
< prev
next >
Wrap
Text File
|
2007-02-28
|
192b
|
7 lines
0010 FOR WORKER:=1 TO 6 DO
0020 READ WAGE,PROD
0030 IF PROD>40 THEN WAGE:=WAGE+20
0040 PRINT "WORKER NUMBER";WORKER;WAGE
0050 ENDFOR WORKER
0060 DATA 120,42,132,46,125,31,130,36,120,44,140,52